<script>on mouseDownif the clickText is "Billﾂ Swagerty" thenif there is a window "Bill" thenshow window "Bill"elselowMemend ifend ifend mouseDownon mouseUpif the clickText is "Billﾂ Swagerty" thenif there is a window "Bill" thenhide window "Bill"end ifelseset the scroll of me to zerovisual effect dissolve to whitevisual effect dissolvego next cdend ifend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style12">hat this stack is for</span><span class="style1">This stack eliminates script based viruses which spread themselves by appending the scripts of other stacks with additional instructions which in turn infects every stack they come in contact with. The original virus of this ilk is called 窶徇erryxmas.窶</span><span class="style12">merryxmas Vaccine</span><span class="style15"> The Next Generation </span><span class="style1">Since the appearance of merryxmas, other strains have surfaced such as merry2xmas, Lopez and others too crude to mention. Version 3.0 of this stack is a new, broad spectrum vaccine that catches them all.</span><span class="style12">What the viruses do</span><span class="style1">By design, most of these viruses are intended only to replicate themselves in other stacks. The worst they are </span><span class="style13">intended </span><span class="style1">to do is quit (not crash) HyperCard unexpectedly. An unintended problem is that portions of other scripts can get sucked into the virus script. The results can be confusing and frustrating.</span><span class="style15">NEW in v3.0 </span><span class="style1">Another HyperTalk based virus that merryxmas Vaccine now catches is 窶徘ickle窶 also known as 窶廩C 9507.窶 The pickle virus is a nasty creation that copies not only itself into the scripts of random stacks, it copies resources 窶 several of which are bastardized copies of Frﾃｩdﾃｩric Rinaldi窶冱 XCMDs & XFCNs.If your stack already contains resources with the same name orID numbers 窶 they get clobbered. Pickle is also known to cause crashes.</span><span class="style12">Requirements</span><span class="style1">This stack requires HyperCard v2.1 or later. This is to handle System 7 aliases. System 7 is not required. Color monitors (optional) will display 窶徭tatus colors.窶If you use a compression utility such as AutoDoubler邃｢, be sure to have adequate free space on the volume being checked. Stacks have a way of expanding as they are being examined.This stack needs to run unlocked in order to display it窶冱 findings.</span><span class="style12">What this stack will do</span><span class="style1">For a selected stack, folder or entire volume, this stack will peek at the stack scripts (without opening the stacks); and strip out the virus code.A bonus feature is the option to let it compact those stacks that have free space available for compacting. Don窶冲 worry about locked stacks窶杯his stack will unlock them as needed and relock them.This stack will also offer to lock the Home stack against future infections. This is the same as checking the 窶廰ocked窶 checkbox in the Get Info window and can be unlocked at any time by clicking once on the icon of the Home stack; choosing Get Info from the File menu; then unchecking the checkbox.</span><span class="style12">How to use this stack</span><span class="style1">Step 1. If you know, or suspect that the Home stack is infected, it is a good idea to replace it with a copy from your original disk first.Step 2. Open this stack and click the 窶廛isinfect Stacks窶 button.Step 3. Select the stack, folder or volume (disk) you wish to disinfect.</span><span class="style15">NEW in v3.0 </span><span class="style1">Thanks to this version窶冱 ability to disinfect itself upon opening if need be, you no longer have to be concerned with keeping a locked copy of this stack to protect it from infection.To take this stack out for a dry run first, use it to scan a floppy disk.Locked volumes will be scanned without making changes.</span><span class="style12">The scripts</span><span class="style1">The code is based on a copy of an infected stack brought to my attention by Ken Dunham at LaGrande Middle School. It was developed on my own time, at home, for use in the public domain.</span><span class="style12">Soapbox</span><span class="style1">Viruses are unworthy creations for such clever and talented people.It is my hope that the authors of HyperTalk based viruses will realize the destructive impact that pranks like this have in terms of lost time & productivity and find inspiration for more constructive contributions.Copycat virus spreaders on the other hand are neither clever nor talented.They are small minded trouble makers, low on the food chain.Bill</span><span class="style17">ﾂ </span><span class="style1">Swagerty (click & hold my name)AOL: Bill DSInternet: billds@aol.com</span><span class="style12">Version History & Acknowledgements</span><span class="style1">Version 3.0-Now scans itself for viruses and eliminates them upon opening.-Created two new XFCNs for better script salvaging performance.-Now eliminates virus code from the unused portion of the data fork toﾂ help commercial utilities that can窶冲 tell what窶冱 used from what isn窶冲.-New DNACheck XFCN to catch all strains of the merryxmas virus includingﾂ a destructive strain called 窶彡rudshot.窶-Removes the 窶徘ickle窶 virus, a HyperTalk virus not related to merryxmas.*Jacque Gay for excellent brainstorming and thorough testing.*Bill Stafford for pointing out how compacting could work as intended.*Ken Dunham for pointing out a resume stack window loading problem.*Till Stegers for suggesting the option to save reports to a file on disk.Version 2.0*Jacque Gay for ideas on broader detection and protection techniques.*Ralph Gross, Batavia Middle School for isolating additional virus strains.-Now employs a custom XFCN to catch more strains of merryxmas.-Abandoned attempts at inoculating the Home stack in favor of locking it.-Added provision for scanning standalone stack applications.Version 1.5*Dennis Kane for bringing the misuse of a reserved word to my attention. -Added an option to inoculate the Home stack against future infections.-Made the color indicator move with the card when the window is moved.-Added a button for printing the activity report at the end of a scan.-Added a musical completion notice.Version 1.4*Ronald Zellner, Texas A&M University for better inoculation strings.-Added provision for scanning an individual stack or folder.-Enhanced to display colors on monitors set for more than 256 colors.Version 1.3-To accommodate accidental mutations, the vaccine now removesﾂ everything from the virus code on down from infected stack scripts.-Stacks are assumed to be Finder locked if IsFinderLocked fails.Version 1.2*Mark Johnson for pointing out GetDir窶冱 weakness for names with commas.-Color indicator light left red if any stacks could not be disinfected.Version 1.1-Accommodated the way Mac Pluses respond to the MonitorConfig XFCN.Version 1.0*Ken Dunham <kdunham@ednet1.osl.or.gov> for telling me about the virus.*Bill Marriott for the straight HyperTalk progress bar.</span><span class="style11">DNACheck v1.1 XFCN ﾂｩ 1995 Jacque Gay</span><span class="style1"></span><span class="style11">FilePath v1.1 XFCN ﾂｩ 1989,1990 Apple Computer, Inc.FolderPath v1.1 XFCN ﾂｩ 1989,1990 Apple Computer, Inc.GetDir v2.2 XFCN ﾂｩ 1990窶ｦ1992 Frﾃｩdﾃｩric RinaldiGetFInfo v1.3 XFCN ﾂｩ 1990窶ｦ1993 Frﾃｩdﾃｩric RinaldiIsFinderLocked v1.2 XFCN ﾂｩ 1990,1991 Frﾃｩdﾃｩric RinaldiKillRes v1.4 XCMD ﾂｩ 1990窶ｦ1992 Frﾃｩdﾃｩric RinaldiLostInSpaces1 v1.0 XFCN ﾂｩ 1995 Bill SwagertyLostInSpaces2 v1.0 XFCN ﾂｩ 1995 Bill SwagertyMonitorConfig v1.1 XFCN ﾂｩ 1989,1990 Apple ComputerSetFinderLock v1.2 XCMD ﾂｩ 1990,1991 Frﾃｩdﾃｩric RinaldiVolumePath v1.1 XFCN ﾂｩ 1989 Apple Computer, Inc.VolumeIsLocked v1.0 XFCN ﾂｩ 1990 Apple Computer, Inc.AutoDoubler is a trademark of Salient Software, Inc.</span></text>
</content>
<name></name>
<script>on openCardset the scroll of cd fld 1 to zeroend openCardon moveWindowglobal statusColorsif statusColors thenset loc of window "green" to 10,263set loc of window "amber" to 10,263set loc of window "red" to 10,263set loc of window "Bill" to 206,110end ifend moveWindowon mouseDownInPicturehide window "Bill"end mouseDownInPicture</script>
</card>
card_2884.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput "Selecting report destination..." into fld "status"get FolderPath("Where would you like this report?")if it is empty thenput empty into fld "status"exit mouseUpelseput "Saving report to disk..." into fld "status"put it & "Vaccine Report" && the short date into itopen file itif the result 竕 empty then put "Open failed -" && the result into fld "status"write "merrymas Vaccine 3.0 Report on" && the short date && "at" ﾂｬ&& the short time & return & return & fld "stacks" to file itif the result 竕 empty then put "Write failed -" && the result into fld "status"close file itif the result 竕 empty then put "Close failed -" && the result into fld "status"end ifif fld "status" = "Saving report to disk..."then put "Report saved to disk." into fld "status"end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>361</left>
<top>146</top>
<right>474</right>
<bottom>174</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print Report</name>
<script>on mouseUpprint field "stacks"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>10</id>
<text>Patience grasshopper...</text>
</content>
<name></name>
<script>on openCardinitializeend openCardon moveWindowglobal statusColorsif statusColors thenset loc of window "green" to 10,263set loc of window "amber" to 10,263set loc of window "red" to 10,263set loc of window "Bill" to 206,110end ifend moveWindowon closeCardglobal statusColors,lastColorput empty into fld "status"if statusColors thenif there is a window "green" thenif visible of window "green" is true thenhide window "green"put "green" into lastColorend ifend ifif there is a window "amber" thenif visible of window "amber" is true thenhide window "amber"put "amber" into lastColorend ifend ifif there is a window "red" thenif visible of window "red" is true thenhide window "red"put "red" into lastColorend ifend ifend ifend closeCardon showProgress thePercentput the rect of btn "Frame" into tempRput (item 3 of tempR - item 1 of tempR) into tempWput item 1 of tempR + round(thePercent * tempW) ﾂｬinto item 3 of tempRset the rect of btn "Bar" to tempRend showProgress</script>
